Amiga News 95/Amiga News 95.iso/dpat/dpat96/povsetup_v1.0/install povsetup

Text File | 1995-05-01 | 3KB | 156 lines

;
;  $VER: POVSetup Install v1.0 (06/01/95)
;

 (complete 0)

 (if (< (/ (getversion) 65536) 39)
  (abort "Désolé, ce programme nécessite l'OS 3.0 ou supérieur !")
 )

 (if (< (/ (getversion "LIBS:muimaster.library") 65536) 8)
  (abort "Désolé, ce programme nécessite MUI v2.01 ou supérieur !")
 )

 (welcome)
 (message (cat "\nPOVSetup v1.0\n"
               "Copyright © (06/01/95) Lejardinier Olivier\n"
               "All rights reserved.\n\n"
               "Ce programme permet de gérer les paramètres du "
               "programme de ray-tracing Persistence Of Vision.\n\n"
               "Ce programme est *SHAREWARE* non limité.\n\n"
               "Pour plus de détails, lisez la documentation."
          )
 )

 (set @default-dest "SYS:Tools")

 (set destination
  (askdir
   (prompt "\nOu voulez-vous installer POVSetup ?\n"
           "(Un répertoire 'POVSetup' sera créé)\n"
   )
   (help (cat "\nVous devez sélectionner l'emplacement où sera copié "
              "POVSetup.\n\n"
              @askdir-help
         )
   )
   (default @default-dest)
  )
 )

 (set destination (tackon destination "POVSetup"))
 (set @default-dest destination)

 (complete 25)

 (copyfiles
  (source "POVSetup")
  (dest @default-dest)
  (files)
  (infos)
  (noposition)
 )

 (copyfiles
  (source "MUI/POVSETUP.1.cfg")
  (dest "ENVARC:MUI")
  (files)
 )

 (copyfiles
  (source "MUI/POVSETUP.1.cfg")
  (dest "ENV:MUI")
  (files)
 )

 (complete 35)

 (set destination
  (askdir
   (prompt "\nOu voulez-vous installer la documentation ?\n")
   (help (cat "\nVous devez sélectionner l'emplacement où sera copiée "
              "la (ou les) documentation(s).\n\n"
              @askdir-help
         )
   )
   (default @default-dest)
  )
 )

 (complete 45)

 (set choice
  (askchoice
   (prompt "\nQuel format de documentation voulez-vous utiliser ?\n")
   (help (cat "\nVous devez sélectionner le format de documentation que vous "
              "désirez utiliser.\n\n"
              "AmigaGuide : à visualiser avec Multiview.\n"
              "Doc        : format ASCII normal (ideal pour une sortie sur "
              "imprimante), à visualiser avec More, Multiview...\n\n"
              @askchoice
         )
   )
   (choices "AmigaGuide"
            "Doc"
            "AmigaGuide & Doc"
   )
   (default 0)
  )
 )

 (complete 55)

 (copyfiles
  (source "")
  (if (= choice 0)
   (choices "POVSetup.Guide")
   (if (= choice 0)
    (choices "POVSetup.Doc")
    (choices "POVSetup.Guide" "POVSetup.Doc")
   )
  )
  (dest destination)
  (files)
  (infos)
  (noposition)
 )

 (complete 70)

 (set choice
  (askchoice
   (prompt "\nDans quelle langue voulez-vous utiliser POVSetup ?\n")
   (help (cat "\nVous devez sélectionner la langue dans dans laquelle "
              "POVSetup sera utilisé.\n\n"
              @askchoice-help
         )
   )
   (choices "Anglais"
            "Français"
   )
   (default 1)
  )
 )

 (complete 75)

 (if (= choice 1)
  (copyfiles
   (source "Catalogs/Français/povsetup.catalog")
   (dest "LOCALE:Catalogs/Français")
   (files)
  )
 )

 (complete 95)

 (message (cat "\nAvant de pouvoir utiliser POVSetup, vous devrez "
               "le configurer. A ce sujet consulter la documentation."
          )
 )

 (complete 100)

 (exit)